set location [pwd]
cd Bin

source dom.tcl 

foreach i {1 2 3 4 5 6} {
	InitParse
	source Class/S$i.tcl
	dom_flush Class/S$i.do
	array unset classes
}

cd $location